WITH THISFORM
IF .INCLUINDO=.T. OR .ALTERANDO=.T. OR .CONSULTANDO=.T. OR .EXCLUINDO=.T.  THEN
   WITH THISFORM.MENUDEBOTOES
     .BTINCLUIR.ENABLED=.F.
     .BTALTERAR.ENABLED=.F.
     .BTEXCLUIR.ENABLED=.F.
     .BTCONSULTAR.ENABLED=.F.
     .BTPRIMEIRO.ENABLED=.F.
     .BTANTERIOR.ENABLED=.F.
     .BTPROXIMO.ENABLED=.F.
     .BTULTIMO.ENABLED=.F.
     .BTIMPRIMIR.ENABLED=.F.
   ENDWITH
ELSE
   WITH THISFORM.MENUDEBOTOES
     .BTINCLUIR.ENABLED=.T.
     .BTALTERAR.ENABLED=.T.
     .BTEXCLUIR.ENABLED=.T.
     .BTCONSULTAR.ENABLED=.T.
     .BTPRIMEIRO.ENABLED=.T.
     .BTANTERIOR.ENABLED=.T.
     .BTPROXIMO.ENABLED=.T.
     .BTULTIMO.ENABLED=.T.
     .BTIMPRIMIR.ENABLED=.T.
   ENDWITH
ENDIF
ENDWITH